0 CLEAR,48895:A$(0)="8601B7620B8EBF12BF620C8EBF1ABF620E395343524F4CCCBF2980D6810125037E07F38EBF187E2B38BD0EB8C1022727C103273EC104275AC10126E4BE6060A68434025FA601A7805CC12725F73502A780BC606225E939BE6062A68234025FA682A7015CC12725F73502A784BC606022E939C6D8BE"
1 A$(1)="60623085CE5F408D331F1330C58D2D33C5BC606022F51F138E5F40201FC628BE6060CE5F408D15FE606030858D0E33C5BC606225F5C6D833C58E5F403454C628BD386335D4":CLS:PRINT"SCROLL-1986":FORT=1TO186:A=T>177:POKE48895+T,VAL("&H"+MID$(A$(-A),T*2+A*234-1,2)):NEXT:EXEC48896